home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / glibc108.gz / glibc108 / glibc-1.08.1 / posix / fnmatch.c < prev    next >
C/C++ Source or Header  |  1993-10-12  |  5KB  |  208 lines
  1. /* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
  2.  
  3. This library is free software; you can redistribute it and/or
  4. modify it under the terms of the GNU Library General Public License as
  5. published by the Free Software Foundation; either version 2 of the
  6. License, or (at your option) any later version.
  7.  
  8. This library is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11. Library General Public License for more details.
  12.  
  13. You should have received a copy of the GNU Library General Public
  14. License along with this library; see the file COPYING.LIB.  If
  15. not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16. Cambridge, MA 02139, USA.  */
  17.  
  18. #ifdef HAVE_CONFIG_H
  19. #if defined (CONFIG_BROKETS)
  20. /* We use <config.h> instead of "config.h" so that a compilation
  21.    using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h
  22.    (which it would do because it found this file in $srcdir).  */
  23. #include <config.h>
  24. #else
  25. #include "config.h"
  26. #endif
  27. #endif
  28.  
  29. #include <errno.h>
  30. #include <fnmatch.h>
  31. #include <ctype.h>
  32.  
  33.  
  34. /* Comment out all this code if we are using the GNU C Library, and are not
  35.    actually compiling the library itself.  This code is part of the GNU C
  36.    Library, but also included in many other GNU distributions.  Compiling
  37.    and linking in this code is a waste when using the GNU C library
  38.    (especially if it is a shared library).  Rather than having every GNU
  39.    program understand `configure --with-gnu-libc' and omit the object files,
  40.    it is simpler to just do this in the source for each such file.  */
  41.  
  42. #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
  43.  
  44.  
  45. #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS)
  46. extern int errno;
  47. #endif
  48.  
  49. /* Match STRING against the filename pattern PATTERN, returning zero if
  50.    it matches, nonzero if not.  */
  51. int
  52. fnmatch (pattern, string, flags)
  53.      const char *pattern;
  54.      const char *string;
  55.      int flags;
  56. {
  57.   register const char *p = pattern, *n = string;
  58.   register char c;
  59.  
  60. /* Note that this evalutes C many times.  */
  61. #define FOLD(c)    ((flags & FNM_CASEFOLD) && isupper (c) ? tolower (c) : (c))
  62.  
  63.   while ((c = *p++) != '\0')
  64.     {
  65.       c = FOLD (c);
  66.  
  67.       switch (c)
  68.     {
  69.     case '?':
  70.       if (*n == '\0')
  71.         return FNM_NOMATCH;
  72.       else if ((flags & FNM_FILE_NAME) && *n == '/')
  73.         return FNM_NOMATCH;
  74.       else if ((flags & FNM_PERIOD) && *n == '.' &&
  75.            (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  76.         return FNM_NOMATCH;
  77.       break;
  78.  
  79.     case '\\':
  80.       if (!(flags & FNM_NOESCAPE))
  81.         {
  82.           c = *p++;
  83.           c = FOLD (c);
  84.         }
  85.       if (FOLD (*n) != c)
  86.         return FNM_NOMATCH;
  87.       break;
  88.  
  89.     case '*':
  90.       if ((flags & FNM_PERIOD) && *n == '.' &&
  91.           (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  92.         return FNM_NOMATCH;
  93.  
  94.       for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
  95.         if (((flags & FNM_FILE_NAME) && *n == '/') ||
  96.         (c == '?' && *n == '\0'))
  97.           return FNM_NOMATCH;
  98.  
  99.       if (c == '\0')
  100.         return 0;
  101.  
  102.       {
  103.         char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
  104.         c1 = FOLD (c1);
  105.         for (--p; *n != '\0'; ++n)
  106.           if ((c == '[' || FOLD (*n) == c1) &&
  107.           fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
  108.         return 0;
  109.         return FNM_NOMATCH;
  110.       }
  111.  
  112.     case '[':
  113.       {
  114.         /* Nonzero if the sense of the character class is inverted.  */
  115.         register int not;
  116.  
  117.         if (*n == '\0')
  118.           return FNM_NOMATCH;
  119.  
  120.         if ((flags & FNM_PERIOD) && *n == '.' &&
  121.         (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  122.           return FNM_NOMATCH;
  123.  
  124.         not = (*p == '!' || *p == '^');
  125.         if (not)
  126.           ++p;
  127.  
  128.         c = *p++;
  129.         for (;;)
  130.           {
  131.         register char cstart = c, cend = c;
  132.  
  133.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  134.           cstart = cend = *p++;
  135.  
  136.         cstart = cend = FOLD (cstart);
  137.  
  138.         if (c == '\0')
  139.           /* [ (unterminated) loses.  */
  140.           return FNM_NOMATCH;
  141.  
  142.         c = *p++;
  143.         c = FOLD (c);
  144.  
  145.         if ((flags & FNM_FILE_NAME) && c == '/')
  146.           /* [/] can never match.  */
  147.           return FNM_NOMATCH;
  148.  
  149.         if (c == '-' && *p != ']')
  150.           {
  151.             cend = *p++;
  152.             if (!(flags & FNM_NOESCAPE) && cend == '\\')
  153.               cend = *p++;
  154.             if (cend == '\0')
  155.               return FNM_NOMATCH;
  156.             cend = FOLD (cend);
  157.  
  158.             c = *p++;
  159.           }
  160.  
  161.         if (FOLD (*n) >= cstart && FOLD (*n) <= cend)
  162.           goto matched;
  163.  
  164.         if (c == ']')
  165.           break;
  166.           }
  167.         if (!not)
  168.           return FNM_NOMATCH;
  169.         break;
  170.  
  171.       matched:;
  172.         /* Skip the rest of the [...] that already matched.  */
  173.         while (c != ']')
  174.           {
  175.         if (c == '\0')
  176.           /* [... (unterminated) loses.  */
  177.           return FNM_NOMATCH;
  178.  
  179.         c = *p++;
  180.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  181.           /* XXX 1003.2d11 is unclear if this is right.  */
  182.           ++p;
  183.           }
  184.         if (not)
  185.           return FNM_NOMATCH;
  186.       }
  187.       break;
  188.  
  189.     default:
  190.       if (c != FOLD (*n))
  191.         return FNM_NOMATCH;
  192.     }
  193.  
  194.       ++n;
  195.     }
  196.  
  197.   if (*n == '\0')
  198.     return 0;
  199.  
  200.   if ((flags & FNM_LEADING_DIR) && *n == '/')
  201.     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
  202.     return 0;
  203.  
  204.   return FNM_NOMATCH;
  205. }
  206.  
  207. #endif    /* _LIBC or not __GNU_LIBRARY__.  */
  208.